home *** CD-ROM | disk | FTP | other *** search
/ Ubisoft - ECTS 99 (UK) (Disc 2) (Press Kit) / Ubisoft - ECTS 99 (UK) (Disc 2) (Press Kit).bin / Ubi_soft.exe / Intro2.dxr / Internal_120_cd 2 Machine.ls < prev    next >
Encoding:
Text File  |  1999-08-18  |  853 b   |  33 lines
  1. global language, cdnum
  2.  
  3. on mouseUp
  4.   puppetSound("pagesend")
  5.   if cdnum = 1 then
  6.     identifier = string(20 + language)
  7.     contents = 0
  8.     transfer = 1
  9.     myFile = new(xtra("fileio"))
  10.     fileName = "c:\CDnum.dat"
  11.     createFile(myFile, fileName)
  12.     openFile(myFile, fileName, 2)
  13.     writeString(myFile, identifier)
  14.     closeFile(myFile)
  15.     myFile = 0
  16.     Mui = new(xtra("mui"))
  17.     response = alert(Mui, [#buttons: #YesNo, #default: 1, #title: "THIS GAME IS ON CD 2...", #message: "Do you wish to quit CD 1?", #icon: #question])
  18.     if response = 1 then
  19.       go("next CD")
  20.     else
  21.       myFile = new(xtra("fileio"))
  22.       openFile(myFile, fileName, 2)
  23.       delete(myFile)
  24.     end if
  25.   else
  26.     myFile = new(xtra("fileio"))
  27.     fileName = "c:\CDnum.dat"
  28.     openFile(myFile, fileName, 2)
  29.     delete(myFile)
  30.     play movie "Machine"
  31.   end if
  32. end
  33.